home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / game / role / YAGAC.lha / Sources / Tutorial.yagac
Text File  |  2000-03-14  |  4KB  |  218 lines
  1. REM YAGAC V0.8ß FILE (LAGA SOURCE)
  2.  
  3. SPRITEBANK["sprites/bernard.abk"]
  4.  
  5. FONT["topaz.font",8]
  6.  
  7. SPEED[2]
  8. XSPEED[2]
  9. YSPEED[2]
  10. TALKSPEED[4]
  11.  
  12. DEFCOORDS
  13.  COORDS[-16,-71]
  14. ENDDEF
  15.  
  16. DEFANIMS
  17.  WLKUP[16,17,18,19,20,21]
  18.  WLKDOWN[23,24,25,26,27,28]
  19.  WLKLEFT[10,11,12,13,14,15]
  20.  WLKRIGHT[3,4,5,6,7,8]
  21.  STPUP[22]
  22.  STPDOWN[29]
  23.  STPLEFT[9]
  24.  STPRIGHT[2]
  25.  TALKUP[22]
  26.  TALKDOWN[29,33]
  27.  TALKLEFT[56,57,58,59,60,61]
  28.  TALKRIGHT[50,51,52,53,54,55]
  29.  PICKUPUP[]
  30.  PICKUP_DOWN[]
  31.  PICKUPLEFT[]
  32.  PICKUPRIGHT[]
  33.  USERDEF[1,90,45,46]
  34.  USERDEF[2,35,47,48,49,48]
  35.  USERDEF[3,5,38,39,40,41,42,43,44]
  36. ENDDEF
  37.  
  38. DEFROOMS
  39.  NROOM[2]
  40.  SROOM[1]
  41.  MROOM[1,1]
  42.  MROOM[2,1]
  43. ENDDEF
  44.  
  45. DEFOBJECTS
  46.  OBJECT[1,2,0,1,1,30,1,TABLE,table,0,152,80]
  47.  OBJECT[2,2,0,1,1,31,1,TABLE2,table,0,-37,114]
  48.  OBJECT[3,0,0,0,1,32,2,WOOD,wood,62,81,109]
  49.  OBJECT[4,1,0,0,1,36,1,DOOR1,door,0,171,27,35]
  50.  OBJECT[5,2,0,0,1,-1,1,TENTAC,tentacle,0,3,41]
  51.  OBJECT[6,2,1,0,1,-2,1,PENDUL,pendulum,0,275,62]
  52. ENDDEF
  53.  
  54. DEFMARKS
  55.  MARK[1,151,117,3]
  56.  MARK[2,27,130,2]
  57.  MARK[3,113,116,4]
  58.  MARK[4,161,101,3]
  59.  MARK[5,56,118,4]
  60.  MARK[6,299,130,1]
  61.  SMARK[1,101,122,3]
  62.  SMARK[2,106,130,3]
  63. ENDDEF
  64.  
  65. DEFDESCRIPTION
  66.  DTALK[1,"Are you crazy?"]
  67.  DTALK[2,"Are you crazy?"]
  68.  DTALK[3,"Are you crazy?"]
  69.  DTALK[4,"Are you crazy?"]
  70.  DLOOK[1,"Beatiful table"]
  71.  DLOOK[2,"A table"]
  72.  DLOOK[3,"Wood"]
  73.  DLOOK[4,"Nothings special"]
  74.  DUSE[1,"I dont need it"]
  75.  DUSE[2,"I have nothing to do"]
  76.  DUSE[3,"I need fire, but where is wood?"]
  77.  DPUSH[1,"I cant move it"]
  78.  DPUSH[2,"I cant move it"]
  79.  DPUSH[3,"Why?"]
  80.  DPUSH[4,"Why?"]
  81.  DPULL[1,"I cant move it"]
  82.  DPULL[2,"I cant move it"]
  83.  DPULL[3,"Why?"]
  84.  DPULL[4,"Why?"]
  85.  DGIVE[1,"How??"]
  86.  DGIVE[2,"How???"]
  87.  DGIVE[3,"How?"]
  88.  DGIVE[4,"How?"]
  89.  DOPEN[1,"I cant open it"]
  90.  DOPEN[2,"I cant open it"]
  91.  DOPEN[3,"I cant open it"]
  92.  DCLOSE[1,"I cant close it"]
  93.  DCLOSE[2,"I cant close it"]
  94.  DCLOSE[3,"I cant close it"]
  95.  DCLOSE[4,"I dont need?"]
  96.  DPICK[1,"Is too heavy"]
  97.  DPICK[2,"Is too heavy"]
  98.  DPICK[3,"Are you crazy?"]
  99.  DPICK[4,"I dont want it"]
  100. ENDDEF
  101.  
  102. DEFDIALOGS
  103.  PAGE[1,1,2,1,1]
  104.  PAGE[2,1,1,1,1]
  105.  PAGE[1,2,2,1,1]
  106.  PAGE[2,2,1,1,1]
  107.  PAGE[1,3,2,1,1]
  108.  PAGE[2,3,0,1,-1]
  109.  PAGE[1,4,0,1,-1]
  110.  PAGE[2,4,0,0,0]
  111.  PAGE[1,5,0,0,0]
  112.  PAGE[2,5,0,0,0]
  113.  QUESTION[1,1,Hi]
  114.  QUESTION[2,1,You are stupid]
  115.  QUESTION[1,2,How are you?]
  116.  QUESTION[2,2,I dont like it]
  117.  QUESTION[1,3,I'm fine?]
  118.  QUESTION[2,3,Goodbye]
  119.  QUESTION[1,4,Goodbye]
  120.  TEXT[1,5,3,Leave me alone]
  121.  COLOUR[0,31]
  122.  COLOUR[5,13]
  123. ENDDEF
  124.  
  125. DEFMUSIC
  126.  MUSIC[1,"Music/mod.eje"]
  127. ENDDEF
  128.  
  129. DEFATTRIBUTES
  130.  
  131. REM Atributtes of objects
  132.  
  133. DEFATT(3)
  134.  
  135.  IF LOOK(3)
  136.   IF VAR(1)«3
  137.    VAR(1)=+1
  138.    SHOWTEXT "Beatiful wood",0
  139.   ENDIF
  140.  ENDIF
  141.  
  142.  IF PUSH(3)
  143.   OBJPOS(3)=85,109
  144.   CMARK(3)=113,135
  145.   DMARK(3)=1
  146.   OBJUPDATE
  147.  ENDIF
  148.  
  149.  IF OPEN(3)
  150.   IF SITEM(3)=1
  151.    SHOWTEXT "Ups, whats happend!!!...",0
  152.    CHANGESCENE(1)
  153.   ENDIF
  154.  ENDIF
  155.  
  156.  IF LOOK(3)
  157.   IF VAR(1)>3
  158.    SHOWTEXT "STOP now!!! please!?!",0
  159.   ENDIF
  160.  ENDIF
  161.  
  162.  IF PICKUP(3)
  163.   IF SITEM(3)=0
  164.    OBJDESACT(3)
  165.    ADDITEM(3)
  166.    DPICKUP(3)="I have it"
  167.   ENDIF
  168.  ENDIF
  169.  
  170.  IF SCENE(1)
  171.   IF USE(3)
  172.    DELITEM(3)
  173.    OBJACTIVATE(3)
  174.    OBJUPDATE
  175.    DPICKUP(3)="I dont need it"
  176.    TOUCH(6)=0
  177.   ENDIF
  178.  ENDIF
  179.  
  180.  ENDATT
  181.  
  182. ENDDEF
  183.  
  184. DEFATT(4)
  185.  
  186.  IF OPEN(4)
  187.   IF STATUS(4)=0
  188.    STATUS(4)=1
  189.    SHOWTEXT "Stop now!!",5
  190.   ENDIF
  191.  ENDIF
  192.  
  193.  IF STATUS(4)=1
  194.   IF OPEN(4)
  195.    SHOWTEXT "Is already open",0
  196.   ENDIF
  197.  ENDIF
  198.  
  199.  IF USE(4)
  200.   IF STATUS(4)=1
  201.    CHANGESCENE(2)
  202.   ENDIF
  203.  ENDIF
  204.  
  205.  ENDATT
  206.  
  207. ENDDEF
  208.  
  209. DEFATT(5)
  210.  
  211.  IF TALK(5)
  212.   DIALOG(1)
  213.  ENDIF
  214.  
  215.  ENDATT
  216.  
  217. ENDDEF
  218.